home *** CD-ROM | disk | FTP | other *** search
/ Corel CD Power Pak: Utilities / Corel CD Power Pak: Utilities.iso / setup / setup.ms_ / setup.ms
Text File  |  1993-11-13  |  50KB  |  1,678 lines
  1. ''
  2. ''   ┌──────────────────────────────────────────────────────────────┐
  3. ''   │                    CorelSCSI!  Ver. 2.0                      │
  4. ''   ├──────────────────────────────────────────────────────────────┤
  5. ''   │                   Setup Script Ver. 1.06                     │
  6. ''   │                                                              │
  7. ''   │                                                              │
  8. ''   │   - SETUP Configuration file for Corel English Version       │
  9. ''   │                                                              │
  10. ''   │   - Created  October 18, 1993.                               │
  11. ''   │   - Modified November 13, 1993 by S.R.                       │
  12. ''   │                                                              │
  13. ''   ├──────────────────────────────────────────────────────────────┤
  14. ''   │                                                              │
  15. ''   │ Copyright (C) 1993.  Corel Corporation   All Rights Reserved │
  16. ''   │                                                              │
  17. ''   └──────────────────────────────────────────────────────────────┘
  18. ''                                                                  
  19.  
  20.  
  21. ''''''$DEFINE DEBUG  ''Define for script development/debugging
  22.  
  23. '$INCLUDE 'setupapi.inc'
  24. '$INCLUDE 'msdetect.inc'
  25.  
  26. '' code to make the install the full screen
  27.  
  28. CONST WS_VISIBLE=&H10000000
  29. CONST WS_BORDER =&H00800000
  30. CONST WS_CLIPCHILDREN =&H02000000
  31. CONST GWL_STYLE =-16
  32. CONST SW_SHOWMAXIMIZED=3
  33.  
  34. DECLARE FUNCTION ShowWindow LIB "user.exe" (hWnd%,iShow%) AS INTEGER
  35. DECLARE FUNCTION SetWindowLong LIB "user.exe" (hWnd%,offset%,style&) AS LONG
  36.  
  37. hWnd%=HwndFrame()
  38.  
  39. sti&=SetWindowLong(hWnd%,GWL_STYLE,WS_VISIBLE+WS_BORDER+WS_CLIPCHILDREN)
  40. stj%=ShowWindow(hWnd%,SW_SHOWMAXIMIZED)
  41.    
  42. ''OEM ID's
  43. CONST OEM_UNIVERSAL        = 1
  44. CONST OEM_CDSTUFF        = 2
  45. CONST OEM_CORELBOOK        = 4
  46. CONST OEM_WINBACKUP        = 8
  47. CONST OEM_DOSBACKUP        = 16
  48. CONST OEM_WINTOOLS        = 32
  49. CONST OEM_DOSTOOLS        = 64
  50. CONST OEM_WINCONFIG        = 128
  51. CONST OEM_DOSCONFIG        = 256
  52. CONST OEM_TWAIN            = 512   
  53.  
  54. CONST CORELSCSI20        = 1
  55. CONST CORELCDPAK        = 2
  56. CONST OEMVERSION        = 3                                                          
  57.  
  58. CONST DISK            = 1
  59. CONST CD_DISK            = 2
  60.  
  61. ''────────────────────────────────────────────────────────────────────────────────
  62. ''
  63. '' Set InstallType = CORELSCSI20    '' this is for the CorelSCSI 2.0 Setup.
  64. ''             = CORELCDPAK        '' this is for the Corel CD PowerPak Setup.
  65. ''           = OEMVERSION        '' this is for the OEM Setup Version.
  66. '' 
  67. '' Set InstallSet = 0    for CorelSCSI 2.0 and Corel CD PowerPak    
  68. ''     InstallSet = ??  depends on what the OEM version is to have. Can choose 
  69. ''            from the following :
  70. ''                  OEM_UNIVERSAL, OEM_CDSTUFF, OEM_CORELBOOK, OEM_WINBACKUP,
  71. ''                      OEM_DOSBACKUP, OEM_WINTOOLS, OEM_DOSTOOLS, OEM_WINCONFIG,
  72. ''                      OEM_DOSCONFIG, OEM_TWAIN
  73. ''         for example, to OEM  CorelBook, Windows Backup, and Windows Config then
  74. ''                  InstallSet = OEM_CORELBOOK + OEM_WINBACKUP + OEM_WINCONFIG
  75. ''
  76. ''        DiskOrCD  = DISK | CD_DISK    FOR POWERPAK ONLY. 
  77. ''                          Set to DISK for the drivers install ONLY
  78. ''                Set to CD_DISK for the rest of the software from the CDROM
  79. ''
  80. ''
  81. '' * NOTE *         if you are using OEM make sure InstallType = OEMVERSION 
  82. ''
  83. ''────────────────────────────────────────────────────────────────────────────────
  84.  
  85. CONST InstallType    = CORELCDPAK        '' this is for the Corel CD PowerPak Setup.
  86. CONST InstallSet    = 0                
  87. CONST DiskOrCD        = CD_DISK    '' this is for the CDROM disk version
  88.  
  89. GLOBAL  OEM_NAME_PLATE$ 
  90.  
  91. OEM_NAME_PLATE$ = "Corel Version"         '' 30 chars max
  92.  
  93.  
  94. ''Dialog ID's
  95. CONST WELCOME       = 300
  96. CONST WLCMCD        = 299                  '' the PowerPak splash screen
  97. CONST CUSTOMCD        = 298               '' the PowerPak custom box
  98. CONST PATHOK        = 301
  99. CONST PATHFND       = 302
  100. CONST CUSTOM        = 303
  101. CONST METHOD        = 304
  102. CONST ENDSCRN       = 305
  103. CONST QUIT          = 306
  104. CONST AUTOCNFG      = 307
  105. CONST PATHSCRN      = 308
  106. CONST README        = 309
  107. CONST READTXT       = 310
  108. CONST BADPATH       = 312
  109. CONST ASKQUIT       = 314
  110. CONST EXITSUCCESS   = 316
  111. CONST EXITFAILURE   = 318
  112. CONST EXITQUIT      = 320
  113. CONST DSKSPCE       = 322
  114. CONST TESTBACK      = 324
  115. CONST CHKSPCE       = 326
  116. CONST METHDHLP      = 327
  117. CONST CUSTMHLP      = 328
  118. CONST PATHHLP       = 329
  119. CONST ASPIDRVR      = 330
  120. CONST CHSECARD      = 331
  121. CONST FDTDC950      = 332
  122. CONST CHSCDHLP      = 333
  123. CONST DEVHIGH       = 334
  124. CONST NOVSURE       = 335
  125. CONST ENDSCRN2      = 336
  126. CONST OEMCARD       = 337
  127. CONST OEMLIST       = 338
  128. CONST OEMINFO        = 339
  129. CONST CDDEVHIGH        = 340     '' powerpak dev high box
  130. CONST DISKINFO        = 341     '' powerpak Disk setup info box
  131. CONST PTHFNDCD        = 342     '' powerpak CD portion Found so install here
  132. CONST CSTOMCD2        = 343                                
  133. CONST MOSAIC        = 344     '' Mosaic Confirm Box
  134. CONST LSTDRV        = 345
  135. CONST LSTDRVHP        = 346
  136. CONST LSTDRVN        = 347
  137.  
  138. ''Billboards
  139. CONST CONFIG1       = 350
  140. CONST BACKUP1       = 352
  141. CONST REGISTER      = 354
  142. CONST CDAUD2        = 356
  143. CONST CDBASE        = 357
  144.  
  145. ''Bitmap ID nums for Billboards
  146. CONST CONFIG1_BIT   = 1050
  147. CONST BACKUP1_BIT   = 1055
  148. CONST REGISTER_BIT  = 1060
  149. CONST CDAUD2_BIT    = 1065
  150. CONST CDBASE_BIT    = 1070
  151.  
  152.  
  153. ''Bitmap ID
  154. CONST CORELSCSI2_LOGO = 1
  155. CONST CORELCDPAK_LOGO = 2
  156.  
  157. ''File Types
  158. CONST UNIFILES        = 1
  159. CONST CDFILES         = 2
  160. CONST CORELBOOKFILES  = 3
  161. CONST WIN_BACKUPFILES = 4
  162. CONST WIN_TOOLSFILES  = 5
  163. CONST WIN_CONFIGFILES = 6
  164. CONST WIN_TWAINFILES  = 7
  165. CONST WIN_MOSAICFILES = 7     '' same as the twain stuff
  166. CONST DOS_BACKUPFILES = 8
  167. CONST DOS_TOOLSFILES  = 9
  168. CONST DOS_CONFIGFILES = 10
  169. CONST NECESSARY_FILES = 11
  170.  
  171. GLOBAL DEST$        ''Default destination directory.
  172. GLOBAL FDCspecial$  ''MUST MATCH!!!! ~aspi.lst name
  173. GLOBAL OEMDisk$     ''MUST MATCH!!!! Other name
  174. GLOBAL OEMPATH$
  175. GLOBAL REBOOT$      ''to reboot or not to reboot
  176. GLOBAL OPTCUR$      ''Option selection from option dialog.
  177. GLOBAL MosDir$      ''Location of old mosaic program, if found.
  178.  
  179. GLOBAL CHECKSTATES$
  180. GLOBAL STATUSTEXT$
  181. GLOBAL DRIVETEXT$
  182. GLOBAL APPS%
  183. GLOBAL DoTheMosaic%
  184.  
  185. GLOBAL UNINEED$
  186. GLOBAL CDNEED$
  187. GLOBAL CORELBOOKNEED$
  188. GLOBAL WIN_BACKUPNEED$
  189. GLOBAL WIN_TOOLSNEED$
  190. GLOBAL WIN_CONFIGNEED$
  191. GLOBAL WIN_TWAINNEED$
  192. GLOBAL DOS_BACKUPNEED$
  193. GLOBAL DOS_TOOLSNEED$
  194. GLOBAL DOS_CONFIGNEED$
  195. GLOBAL NECESSARY_NEED$
  196. GLOBAL PCDMOSNEED$
  197. GLOBAL EXTRACOSTS$
  198. GLOBAL BIGLIST$
  199.  
  200. GLOBAL CORRUPT$
  201. GLOBAL ERRORSTRING$ 
  202. GLOBAL oldestpath$ 
  203. GLOBAL CallBackDlg$
  204.  
  205. DECLARE SUB cpRegisterDefaults LIB "cpalette.dll"
  206. DECLARE SUB DoBackGround
  207. DECLARE SUB Install
  208. DECLARE FUNCTION SetOEMText  LIB "stv.dll" (sz$) AS INTEGER
  209. DECLARE SUB AddOptFilesToCopyList (ftype%)
  210. DECLARE SUB CheckPath 
  211.  
  212. DECLARE FUNCTION RemSymbol  LIB "stv.dll" (sz$) AS INTEGER
  213.  
  214. DECLARE SUB RecalcOptFiles (ftype%)
  215. DECLARE SUB RecalcPath
  216. DECLARE SUB SetDriveStatus
  217. DECLARE SUB SetCheckStateList
  218. DECLARE FUNCTION SetFullInstallSize LIB "stv.dll" (sz$) AS INTEGER
  219. DECLARE FUNCTION CheckIfOEM  LIB "stv.dll" (set%, against%) AS INTEGER
  220. DECLARE FUNCTION SetBillBrdNum LIB "stv.dll" (num%) AS INTEGER         
  221. DECLARE FUNCTION SetDebugInfo LIB "stv.dll" () AS INTEGER
  222. DECLARE FUNCTION KillScreenSave LIB "stv.dll" () AS INTEGER
  223. DECLARE FUNCTION RestoreScreenSave LIB "stv.dll" () AS INTEGER
  224.  
  225. INIT:                                                         
  226. ''    nRc% = SetDebugInfo()
  227.     nRc% = KillScreenSave()
  228.     CUIDLL$ = "stv.dll"            ''Custom user interface dll
  229.     FDCspecial$ = "FDC TMC-950 /W BIOS REV < 8.2"       ''Must Match ~aspi.lst name all uppercase
  230.     OEMDisk$ = "OTHER (REQUIRES DISK FROM OEM...)"      ''Must Match ~aspi.lst name all uppercase
  231.  
  232.     CORRUPT$ = "Setup sources were corrupted, call Corel!"
  233.     ERRORSTRING$ = "Error"
  234.     
  235.     IF InstallType = CORELCDPAK  THEN        '' takes care of the BITMAP LOGO (2 types)
  236.         SetBitmap CUIDLL$, CORELCDPAK_LOGO
  237.         SetTitle "Corel CD PowerPak! Setup"
  238.     ELSE
  239.         SetBitmap CUIDLL$, CORELSCSI2_LOGO 
  240.